﻿* Encoding: UTF-8.
USE ALL.
COMPUTE filter_$=(AttentionCheck1 = 1 & MissingResponse = 1).
VARIABLE LABELS filter_$ 'AttentionCheck1 = 1 & MissingResponse = 1 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.

**k-alpha - Note to run this, you must first run the syntax located in “kalpha syntax.sps” ***

kalpha judges = coder1_T1 coder2_T1/level = 2/detail = 1/boot= 5000.

kalpha judges = coder1_T2 coder2_T2/level = 2/detail = 1/boot= 5000.

***Belief in Global Warming *** 

COMPUTE Belief_T1=Mean(BGW1_T1,BGW2_T1).
EXECUTE.

COMPUTE Belief_T2=Mean(BGW1_T2,BGW2_T2).
EXECUTE.

***Scientific Literacy

RECODE SL1 (1=1) (ELSE=0) INTO A1.
EXECUTE.
RECODE SL2 (2=1) (ELSE=0) INTO A2.
EXECUTE.
RECODE SL3 (2=1) (ELSE=0) INTO A3.
EXECUTE.
RECODE SL4 (1=1) (ELSE=0) INTO A4.
EXECUTE.
RECODE SL5 (1=1) (ELSE=0) INTO A5.
EXECUTE.
RECODE SL6 (3=1) (ELSE=0) INTO A6.
EXECUTE.
RECODE SL7 (1=1) (ELSE=0) INTO A7.
EXECUTE.
RECODE SL8 (2=1) (ELSE=0) INTO A8.
EXECUTE.
RECODE SL9 (1=1) (ELSE=0) INTO A9.
EXECUTE.

COMPUTE ScientificLiteracy = A1+A2+A3+A4+A5+A6+A7+A8+A9.
EXECUTE.

***Understanding Differences by Condition ****

GLM T1_Understanding T2_Understanding BY Condition
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /EMMEANS=TABLES(OVERALL) 
  /EMMEANS=TABLES(Condition) COMPARE ADJ(LSD)
  /PRINT=DESCRIPTIVE
  /CRITERIA=ALPHA(.05)
  /DESIGN= Condition.

** Understanding Change **

COMPUTE Understanding_Change=T2_Understanding - T1_Understanding.
EXECUTE.

UNIANOVA Understanding_Change BY Condition
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /EMMEANS=TABLES(OVERALL) 
  /EMMEANS=TABLES(Condition) COMPARE ADJ(LSD)
  /PRINT=DESCRIPTIVE
  /CRITERIA=ALPHA(.05)
  /DESIGN=Condition.


***Understanding X Political Orientation on Belief in Global Warming

REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT BGW_T2_Avg
  /METHOD=ENTER LibCon.


UNIANOVA BGW_T2_Avg WITH LibCon T2_Understanding
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /CRITERIA=ALPHA(0.05)
  /DESIGN=LibCon T2_Understanding LibCon*T2_Understanding.

UNIANOVA BGW_T2_Avg WITH LibCon T2_Understanding Gender Age E_DC1 E_DC2 
    E_DC3 E_DC4 Education
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /CRITERIA=ALPHA(0.05)
  /DESIGN=LibCon T2_Understanding LibCon*T2_Understanding Gender Age E_DC1 E_DC2 
    E_DC3 E_DC4 Education.

***Scientific Literarcy X Political Orientation

REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT BGW_T2_Avg
  /METHOD=ENTER ScientificLiteracy.

UNIANOVA BGW_T2_Avg WITH ScientificLiteracy LibCon
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /CRITERIA=ALPHA(0.05)
  /DESIGN=LibCon*ScientificLiteracy ScientificLiteracy LibCon.

***Sustainable Intentions***

RELIABILITY
  /VARIABLES=Intentons_1 Intentons_2 Intentons_3 Intentons_4 Intentons_5 Intentons_6
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

COMPUTE Sustainable_Intentions=Mean(Intentons_1,Intentons_2,Intentons_3,Intentons_4,Intentons_5,
    Intentons_6).
EXECUTE.


